home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / cli / mx2src.arc / SQ.MOD < prev    next >
Encoding:
Text File  |  1989-01-05  |  572 b   |  20 lines
  1. MODULE  sq;
  2. FROM    SYSCALL         IMPORT  SpintInfo;
  3. FROM    GEMDOS          IMPORT  Term;
  4. FROM    Terminal        IMPORT  WriteString,WriteLn;
  5. VAR     spintcmd        :       POINTER TO ARRAY [0..1] OF LONGCARD;
  6.         SQ              :       PROC;
  7.         ok              :       BOOLEAN;
  8. BEGIN
  9.         IF SpintInfo(0,spintcmd) THEN
  10.            SQ:=PROC(spintcmd^[1]);
  11.            SQ();
  12.         ELSE
  13.            WriteLn;
  14.            WriteString("Background spooler not running");
  15.            WriteLn;
  16.            ok:=Term(-1);
  17.         END;
  18.         ok:=Term(0);
  19. END     sq.
  20.